Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/ISSUE16/TIPTRIX/LISTING3.PAS

Pascal/Delphi Source File | 1996-11-15 | 424 b | 16 lines

procedure PatchExe(const aFile: String; aSerial: Longint);
var
  aPos : Longint;
  aStream : TMemoryFileStream;
begin
  aStream := TMemoryFileStream.Create(aFile, fmOpenReadWrite);
  try
    aPos := PosBM('*MyPatch*',aStream.Memory^, aStream.Size);
    if aPos <> - 1 then
      { - 1 for Length byte ! }
      PPatch(PChar(aStream.Memory)+aPos-1)^.Serial := aSerial;
  finally
    aStream.Free;
  end;
end;